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Guida per l'input dei programmi versioni 
C64 


Notate che i listati contengono 'pa¬ 
role' racchiuse tra parentesi graffe 
I /. Tali parole rappresentano carat¬ 
teri di controllo come mostrato nel 
sottostante riquadro. Se sono pre¬ 
cedute da un numero, questo indi¬ 
ca il numero di volte che quel tasto 
deve essere premuto. Se il simbolo 
è sottolineato deve essere premuto 
contemporaneamente a SHIFT men¬ 
tre se è racchiuso da [()] deve esse¬ 
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re premuto contemporaneamente 
al tasto COMMODORE. Inoltre, se 
tra parentesi si trova un carattere 
alfabetico "solitario"’ questo dovrà 
essere premuto contemporanea¬ 
mente al tasto CONTROL. 

Con questo sistema di codifica, sa¬ 
rà molto più agevole copiare i lista¬ 
ti senza faticose e dubbie interpre¬ 
tazioni di caratteri grafici e di con¬ 
trollo del cursore o dei colori. 
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Per ricevere gli arretrati di (P^(PÌi§^ à&'J’J compilare il seguente tagliando: 

. 


J Compilare ed inviare in busta chiusa a: 

*50TX viale Restelli, 5 • 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome___ 

Cognome_ 

Indirizzo___ 

CAP_ Città_ Prov_ 

Anno_ 

Anno_ 

. a mezzo 


Desidero ricevere i seguenti numeri arretrati di 
iÌi/'J'J dedicato a_ 


a L. 2.000 cad. per un totale di L. 


□ assegno allegato □ contanti allegati 
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Stop Bus 


Se non l’hai già fatto, memorizza 
STOP BUG e salvalo su nastro o di¬ 
sco. 

Questo programma ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: "-.rem" seguita da un nume¬ 
ro, detto checksum; NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 


che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me? per PRINT). 

Usando STOP BUG tieni conto del 
fatto che gli spazi non influiscono 
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sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 


Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE, e per riatti¬ 
varlo batti SYS 40704. 


STOP BUG per C64 

100 POKE55,0 :POKE56,PEEK(56)-1:R=PEEK(56)* 2 56 :PRINT"{CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+l32 :READA:CK=CK+A:IFA=999THENA=R/256 
120 POKEI, A:NEXT 

130 IFCK022689THENPRINT" {GIU ' {ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 ,96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
2 20 DATA32,1 41 ,36,3,169,999,141, 37,3 
230 DATAI 69,0,1 33,254,96,32,87,241 ,1 33 
240 DATA2 51 ,1 34,252,1 32,253,8,201 ,1 3,240 
250 DATAI 7,201 ,32,2 40,5,24,1 01 ,2 54,1 33 
260 DATA254,!65,251,166,252,164,253,40,96 
270 DATAI 69,1 3,32,21 0,2 55,1 65,21 4,1 41 ,2 51 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,210,255,169,1 8,32,21 0,255 
300 DATAI 69,58,32,210,2 55,1 66,2 54,1 69,0 
31 0 DATAI 33,254,1 72,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,2 55,173 
340 DATA251,3,133,214,76,55,999 
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* 

fi Super sprite 


Disk drive opzionale 


Questo interessante programma 
consente di disegnare uno sprite e 
di vederlo in tutte le sue quattro 
possibili dimensioni: normale, 
espanso in larghezza, espanso in 
altezza, espanso in larghezza ed In 
altezza. Inoltre questa utility per¬ 
mette di registrare un file contenen¬ 
te i dati dello sprite,- tale opzione 
tuttavia funziona esclusivamente su 
disco, quindi chi è munito soltanto 
del caro vecchio registratore a cas¬ 
setta non ha questa possibilità. 

Per utilizzare questo programma è 
indispensabile conoscere i tasti 
tramite i quali si ottengono le op¬ 
zioni disponibili. Essi sono: 
-l,J,K,M- muovono il cursore nelle 
quattro direzioni possibili. 

-E- attiva o disattiva il modo TRA¬ 
CE- se appare ON il cursore dise¬ 
gna, se appare OFF cancella. 

-Q- fine programma,- è possibile 
ottenere a questo punto le istru¬ 
zioni DATA contenenti i codici nu¬ 
merici dello sprite memorizzato, 
dopo di che il programma termina. 
Se si desidera memorizzare le linee 
contenenti le DA TA si deve digita¬ 
re NEW, portare il cursore in corri¬ 
spondenza della prima linea e pre¬ 
mere .RETURN su di essa e sulle se¬ 
guenti. 

-1- capovolge lo sprite. 

-2- "rovescia” lo sprite come se 
fosse visto in uno specchio. 

-3- ruota lo sprite di 90 gradi in 
senso antiorario. 


-4- seleziona i colori dello sprite,- 
con i tasti da 1 a 8 si ottiene il set 
principale di colori (quello scritto 
sui tasti). Per il set secondario 
(quello che si ottiene col' tasto 
Commodore) premere i medesimi 
tasti assieme allo SHIFT. 

-5- attiva o disattiva il modo 
MULTICOLOR: se appare Y siamo 
in tale modo, se appare N siamo 
in modo normale. 

-6,7- spostano lo sprite rispettiva¬ 
mente verso sinistra e verso de¬ 
stra. 

-8,9- spostano lo sprite rispettiva¬ 
mente verso l'alto e verso il basso. 
-CLR- cancella lo sprite. 

Le opzioni seguenti sono utilizza¬ 
bili solo da chi possiede un disck 
drive: 

-fi- (SAVE) salva lo sprite su di¬ 
sco, chiedendo il nome con cui de¬ 
ve chiamarlo. 

-f3- (LOAD) carica da disco lo spri¬ 
te richiesto. 

-f5- (MERGE) sovrappone allo 
sprite in memoria quello che viene 
caricato da disco. 

Chi possiede una stampante e de¬ 
sidera listare su carta le linee con 
le istruzioni DATA relative allo 
sprite in memoria, deve seleziona¬ 
re l'opzione -Q- e, quando com¬ 
pare la scritta READY, digitare.- 
0PEN4,4:CMD4.-G0T0935 
Ed ora potete creare tutti gli sprite 
che volete ed utilizzarli nei vostri 
giochi! 
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1 REM* * ********************************* 

: rem 

211 

2 REM********** SUPER SPRITE ********** 

: rem 

1 96 

3 REM*********************************** 

: rem 

21 3 

10 GQSUB9000 

: rem 

1 70 

100 

SL=SC+40*Y+X : CL=SL+54 272 

: rem 

108 

no 

BY=Y*3+INT(X/8):BI=7-(X-INT(X/8)*8) 

: rem 

223 

120 

POKESL,102+128*CC 

: rem 

1 50 

1 30 

GETA$:IFA$=""THENCC=1-CC:GOTOl 20 

: rem 

100 

1 40 

POKESL,160 

: rem 

38 

145 

IFA$ = "{CLR}"THENFORQ= 83 2TO8 9 5 : POKEQ,0 

: NEXT:GOSUB5000 : 


GOTOl00 

: rem 

62 

1 50 

IFASC ( A$ ) >132ANDASC(A$)<136THEN320 

: rem 

128 

1 70 

IFVAL(A$) O0THEN340 

: rem 

48 

1 80 

IFA$ = " E " THENE=16-E:A$=" " :GOTO360 

: rem 

9 

1 90 

IFA$ = " Q"THEN9 0 0 

: rem 

40 

200 

IFA$="I"THENY=Y-1 

: rem 

204 

210 

IFA$ = " M " THENY = Y+1 

: rem 

207 

220 

IFA$ = " J " THENX=X-1 

: rem 

205 

230 

IFA$="K"THENX=X+1 

: rem 

205 

240 

IFKGOTO270 

: rem 

66 

250 

I FETHENPOKECL,11:Q=PEEK(832+BY):POKE832+BY,Q AND(255- 


2 tBI):GOTO270 

: rem 

228 

260 

POKECL,1:Q=PEEK(832+BY) : POKE832+BY,Q 

OR 2tBI:rem 

89 

270 

IFX>23THENX=0:Y=Y+1 

: rem 

1 56 

280 

IFX<0THENX=23 : Y=Y-1 

: rem 

1 57 

290 

IFY>20THENY=0 

: rem 

24 

300 

IFY<0THENY=20 

: rem 

14 

310 

GOTOl00 

: rem 

94 

320 

ON(ASC(A$)-132)GOSUB2000,3000,4000 

: rem 

244 

330 

GOTOl00 

: rem 

96 

340 

ONVAL ( A$ ) GOSUBl000,1100,1200,500,400, 

1300,1400,1500,1 


600 

: rem 

50 

350 

GOTOl00 

: rem 

98 

360 

IFETHENPOKEl912,6:POKEl913,6:GOTOl20 

: rem 

153 

370 

POKEl912,14:POKEl913,32:GOTOl20 

: rem 

245 

399 

REM ** MONO/MULTI COLOR ** 

: rem 

163 

400 

MC=15-MC : POKEV+28,MC 

: rem 

148 

410 

POKE1677,14-11*(MC>0) 

:rem 

50 

420 

RETURN 

: rem 

118 

499 

REM ** CAMBIO COLORE ** 

:rem 

1 61 

500 

PRINTCL$ 

: rem 

213 

510 

PRINT" { SU}SFONDO ( 2 SPAZI }?": GOSUB580 

:BC=I :rem 

156 

51 5 

IFMC=0THENPRINT"{SUJCOLORE SPRITE?{ 2 

SPAZI } { 4 SIN} 


":GOSUB580:Cl=I:GOTO540 

: rem 

157 

520 

PRINT"{SUJCOLORE PRINCIPALE ?" :GOSUB580: CI =1 : rem 

110 

525 

PRINT"{SUJCOLORE 1 ?{ 9 SPAZI }": GOSUB580 : C2=I 




: rem 

190 

530 

PRINT"{SUJCOLORE 2 ?" :GOSUB580:C3=I 

:rem 

1 88 

540 

GOSUB600 

:rem 

1 75 

550 

PRINTCD$:E=0 

:rem 

190 

555 

POKEV+3 7, C 2 : POKEV+3 8, C 3 

:rem 

81 
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560 

F0RQ=39T042:POKEV+Q,Cl:NEXT 



: rem 

21 7 

570 

RETURN 



: rem 

1 24 

580 

GETB$:IFB$=""THEN580 



: rem 

95 

585 

I=ASC(B$)-25:IFI>15THENI=I-24 



. rem 

1 45 

590 

IFI>=0ANDI<16THENRETURN 



: rem 

239 

595 

GOTO580 



: rem 

121 

599 

REM ** QUADRI SPRITE ** 



: rem 

208 

600 

PRINTMID$(BG$,BC+1,1); 



:rem 

196 

61 0 

PRINT"{HOME}{GIU'}{DES}{RVS}{ 5 SPAZI}{DES} 




{ 7 SPAZI}" 



: rem 

21 6 

620 

PRINT"{RVS}{DES}{ 5 SPAZI}{DES}{ 7 SPAZI}{GIU’} 



{ 13 SIN}{ 5 SPAZI}{DES}{ 7 SPAZI}" 



: rem 

220 

630 

PRINT 



: rem 

38 

640 

PRINT"{SU}{DES}{RVS}{ 5 SPAZI}{DES}{ 

7 

SPAZI}{GIU' 

} 


{ 13 SIN}{ 5 SPAZI}{DES}{ 7 SPAZI}" 



: rem 

1 1 1 

650 

PRINT"{SU}{DES}{RVS}{ 5 SPAZI}{DES}{ 

7 

SPAZI}{GIU' 

} 


{ 13 SIN}{ 5 SPAZI}{DES}{ 7 SPAZI}" 



: rem 

1 1 2 

660 

PRINT"{SU}{DES}{RVS}{ 5 SPAZI}{DES}{ 

7 

SPAZI}{GIU' 

} 


{ 13 SIN}{ 5 SPAZI}{DES}{ 7 SPAZI}" 



: rem 

113 

670 

PRINTPTS: RETURN 



: rem 

1 2 

900 

POKEV+21,0 



: rem 

8 

91 0 

PRINT"{CLR}" 



: rem 

254 

920 

INPUT"VUOI I CODICI DATA";Q$:IFLEFT$ 

(Q$ 

,1)0 

"S"THENEN 


D 



: rem 

1 94 

925 

IFF$=""THENINPUT"NOME SPRITE ";F$ 



: rem 

200 

930 

INPUT"NUMERO DI LINEA INIZIALE";LN 



: rem 

102 

935 

PRINT"{CLR}":PRINTLN;"REM *** DATA PER 

SPRITE ";F$ 

. n 
, 


***":LN=LN+1 



: rem 

200 

940 

PRINTLN;"REM *** COLORE:"CIIFMC=0THENPRINT 

>•< ***•> 

: GO 


TO950 



: rem 

167 

945 

PRINT","C2","C3"***" 



: rem 

1 88 

950 

LN=LN+1 -.PRINTLN; "DATA" ;Cl ; : IFMC=1 5THENPRINT" 

, , v» *, 

ii » 
! 


;C3 ; 



: rem 

190 

955 

PRINT:LN=LN+1 



: rem 

55 

960 

FORL=0TO3:PRINTLN;"DATA "; 



: rem 

74 

965 

FORD = OTOl5 :PRINTMID$(STR$(PEEK(832+16*L+D)) , 

2) 

; :N 


EXTD:PRINT"{SIN} " 



: rem 

252 

970 

LN=LN+1:NEXTL 



: rem 

50 

999 

END 



: rem 

130 

1000 REM *** ROTAZIONE SPRITE *** 



: rem 

51 

1010 F0RZ = 8 32T0859STEP3:ZZ = 1 724-Z 



: rem 

21 

1020 FORA=0TO2:B=PEEK(Z+A):POKEZ+A,PEEK(ZZ+A):POKEZZ+A,B: 


NEXT:NEXT 



: rem 

252 

1030 GOTO5000 



: rem 

194 

1100 F0RZ=832T0892STEP3 



: rem 

146 

1120 B=PEEK(Z):POKEZ/PEEK( Z + 2 ):POKEZ+2,B 

: NEXT 

: rem 

54 

1130 SYS986 



: rem 

107 

1140 IFMC=0THEN5000 



:rem 

70 

1150 A=Cl: CI=C2:C2=A:GOTO5000 



: rem 

126 

1200 F0RZ=832T0896:POKEZ,0:NEXTZ 



: rem 

26 
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1220 FORX=20TOOSTEP-1:FORY=0TO20:BY=(20-X)*3+INT(Y/8):BI= 
7-(Y-INT(Y/8)*8) : rem 101 

1 230 CL=SC+54272 + 40*Y+X: IF (PEEK (CL) AND1 5) OlTHENl 250 

:rem 230 

1240 A=PEEK(832+BY)tPOKE832+BY,A OR 2tBI :rem 19 

1 250 NEXTY : NEXTX: X = 0 : Y=0 :MC = 0 :GOT05000 treni 159 

1 300 REM ** MOVIMENTO VERSO SINISTRA ** treni 10 

1 305 IFMCTHENGOSUBl 310 treni 92 

1310 F0RZ = 832T0892STEP3 '.rem 149 

1 320 POKEZ, (PEEK (Z) *2-1 * (PEEK(Z+1 ) >1 27) ) AND255 treni 68 

1330 POKEZ+1,(PEEK(Z+1)*2-1*(PEEK(Z+2)>127))AND255 

trem 254 

1 340 POKEZ+2,(PEEK(Z+2)*2)AND255 trem 35 

1 350 NEXT: GOTO 5000 trem 64 

1400 REM ** MOVIMENTO VERSO DESTRA ** trem 97 

1405 IFMCTHENGOSUBl410 trem 94 

1410 F0RZ=832T0892STEP3 trem 150 

1420 POKEZ+2,PEEK(Z+2)/2+128*(PEEK(Z+l)AND1) trem 216 

1430 POKEZ+1, PEEK(Z+l)/2+128*(PEEK(Z)ANDl) trem 123 

1440 POKEZ,PEEK(Z)/2 trem 175 

1 450 NEXTtGOTO5000 trem 65 

1500 REM ** MOVIMENTO VERSO L'ALTO ** trem 66 

1510 F0RZ=832T0891 trem 39 

1520 POKEZ,PEEK(Z+3)tNEXT trem 36 

1 530 FORZ = 892T0894 t POKEZ,0 1 NEXT trem 202 

1540 GOTO5000 trem 200 

1600 REM ** MOVIMENTO VERSO IL BASSO ** trem 173 

1610 F0RZ=894T0835STEP-1 trem 200 

1620 POKEZ,PEEK(Z-3)tNEXT trem 39 

1 630 F0RZ = 832T0834:POKEZ,0 1 NEXT trem 191 

1640 GOTO5000 trem 201 

1999 REM ** SALVATATAGGIO SPRITE ** trem 6 

2000 PRINTCL$tPRINTC2$tF$="" trem 135 

2010 PRINT"{SU}NOME FILE";tINPUTF8 tIFF$ = ""THEN2080 

trem 144 

2020 OPEN1,8,15 trem 29 

2030 FL$="0t"+F$+",SEQ,WRITE" trem 54 

2040 OPEN2,8,14,FL$ trem 1 

2050 INPUT#1,A,B$,C,DtIFA<>0THEN2100 trem 47 

2060 PRINT#2,F$:PRINT#2,BCt PRINT#2,C1 :PRINT#2,C2tPRINT#2, 
C3 1 PRINT#2,MC srem 28 

2070 FORM=0TO63 t PRINT#2,PEEK(832+M) t NEXTM trem 15 

2080 CLOSE2 1 CLOSEl trem 83 

2090 PRINTCL$ t PRINTCD$ t E=0 t RETURN trem 131 

2099 REM *** ERRORE DISCO *** trem 245 

2100 PRINT"{RVS}ERRORE DEL DISCO{OFF}";B$IGOTO2080 

trem 44 

2999 REM ** CARICAMENTO SPRITE ** trem 102 

3000 PRINTCL$ t PRINTC2S t F$ = "" trem 136 

3010 PRINT"{SU}NOME FILE DA CARICARE" } tINPUTF$tIFF$=""THE 

N2090 trem 81 
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3020 OPENl,8,15 :rem 30 

3030 FL$="0 :"+F$+",SEQ,READ" :rem 200 

3040 OPEN2,8,14,FL$ :rem 2 

3050 INPUT#! ,A,B$ ,C,D: IFAOOTHEN2100 :rem 48 

3060 INPUT#2,F$: INPUT#2,BC: INPUT#2,C1: INPUT#2,C2: INPUT#2, 
C3:INPUT#2,MC :rem 47 

3070 FORM=0TO63: INPUT#2,Q:POKE832+M,Q:NEXTM :rem 212 

3080 CLOSE2:CLOSEl :rem 84 

3090 GOTO5000 :rem 202 

3999 REM *** 'MERGE' SPRITE *** :rem 83 

4000 PRINTCL$:PRINTC2$:F$ = "" :rem 137 

4010 PRINT"{SUjNOME FILE PER MERGE"; :INPUTF$:IFF$=""THEN2 

090 :rem 234 

4020 OPENl,8,15 :rem 31 

4030 FL$ = "0:"+F$+",SEQ,READ" :rem 201 

4040 OPEN2,8,14,FL$ :rem 3 

4050 INPUT#! ,A,B$ ,C,D: IFAOOTHEN2100 :rem 49 

4 060 INPUT#2,F$:INPUT#2,BC:INPUT#2,C1: INPUT#2,C2:INPUT#2, 
C3:INPUT#2,MC :rem 48 

4070 FORM=0TO63: INPUT#2,Q:POKE83 2+M,Q ORPEEK(832+M) :NEXT 

: rem 180 

4080 CLOSE2:CLOSEl :rem 85 

4090 GOTO5000 :rem 203 

4999 REM ** DISEGNO SPRITE ** :rem 75 

5000 POKEV+28,MC:POKEl 677,14-11*(MC>0) :GOSUB5100 : rem 242 

5010 SYS91 2:X=0:Y=0*:GOTO540 :rem 108 

5100 PRINT"{HOME}";:FORY=0TO20 :rem 209 

5110 PRINT"{ 16 DES}{RVS}{ 24 SPAZI}{OFF}"; :rem 71 

5120 NEXTY:Y=0 :rem 96 

5130 RETURN :rem 169 

9000 POKE53269,0:POKE53281 ,15 :POKE53280,7 :PRINT" [<4>]" 

:rem 203 

9010 PRINT"{CLR}ATTENDI PREGO ." 

:rem 96 

9190 FORA=912T0912+101 :READB:POKEA,B:CK=CK+B:NEXT 

:rem 249 

9195 IFCKOl 5921 THENPRINT" {RVSjERRORE NELLE DATA" :END 

:rem 237 

9200 V=53248:POKE2042,1 3 :rem 37 

9210 POKE2040,13:POKE2041,13:POKE2043,13 :rem 211 

9220 F0RQ=832T0896:POKEQ,0:NEXT :rem 184 

9230 POKEV+29,10:POKEV+23,12 :rem 84 

9240 POKEV,40:POKEV+1,60:POKEV+2,84:POKEV+3,60 :rem 244 

9250 POKEV+4,40 :POKEV+5,92 :POKEV+6,84 :POKEV+7,92 : rem 106 

9260 POKEV+21,15 :rem 118 

9270 C1=2:C2*5:C3=7:BC=1 :rem 39 

9280 F0RQ=39T042;P0KEV+Q,C1:NEXT :rem 17 

9290 SC=1040:CS=55296:MC=0 :rem 187 

9300 CD$="{HOME}{ 22 GIU'} TRACE=ON{ 5 SPAZI}E=TRACE ON-O 

FF{ 3 SPAZI}Q=DATA{ 2 SPAZI}" :rem 8 

CL$ = " {HOME} { 22 GIU'H 39 SPAZI}" :rem 138 

10 


9310 



9320 

9330 

9340 

9350 

9360 

9370 

9380 

9390 

9400 

9410 

9420 

9500 

951 0 

9520 

9530 

9540 

9550 


C2$ = " {HOME} { 23 GIU'H 36 SPAZI}{SU} " :rem 19 

BG$ = "{BLK}{WHT}{RED}{CYN}{PUR}{GRN}{BLU}{YEL}":PT$=" 
[<4>]" : rem 22 2 

PRINT"{ 12 SPAZI}PREMI UN TASTO{SU}" : rem 221 

GETQ$:IFQ$=""THEN9350 :rem 229 

PRINT"{CLR}":GOSUB5100 :rem 182 

PRINT"{HOME}{ 12 GIU'}1-CAPOVOLGI{GIU'}{ 11 SIN}2-SP 
ECCHIO" : rem 2 

PRINT"3-RUOTA 90[<V>]{GIU'}{ 11 SIN}4-SEL.COLORE 
{GIU'}{ 12 SIN}5-MULTICOLOR=" :rem 212 

PRINT"{SU}6-SINISTRA {GIU'H H SIN}7-DESTRA {GIU'} 

{ 9 SIN}8-ALTO " :rem 41 

PRINT"9-BASSO" :rem 124 

PRINTCD$:PRINT"{GIU'}{RVS}DISCO:{OFF} Fi=SAVE 
{ 3 SPAZI}F3=LOAD{ 3 SPAZI}F5=MERGE{SU}" :rem 228 

POKE55949,2 :POKEV+28,0 :POKEl 677,1 4 :X=0:Y=0:GOTO600 

:rem 243 

DATAI 69,64,1 33,248,1 69,3,1 33,249,1 69,1 6,1 33,250,1 69, 
216,133,251,162,3 :rem 133 

DATAI 6 0,0,1 77,2 4 8,1 0,1 44,6,7 2,1 6 9,1 ,1 45,250,1 04,200, 

192.8.208.242.230.248 :rem 44 

DATA202,240,13,165,250,24,105,8,133,250,144,224,230, 

251.208.220.165.248 :rem 191 

DATA201,127,240,13,165,250,24,105,24,133,250,144,203 
,230,251,208,199,96 :rem 200 

DATAI 69,63,1 33,2 4 8,1 69,3,1 33,2 49,1 60,63,1 62,8,1 77,24 
8,74,38,250 :rem 110 

DATA20 2,208,250,165,250,1 45,248,1 36,208,239,96 

:r em 22 


Contraerea 


ià 


L’obiettivo di questo gioco è ab¬ 
battere il maggior numero di aerei 
nemici in un tempo massimo di due 
minuti, usando la contraerea piaz¬ 
zata a terra. 

Tu potrai spostare la tua batteria 
contraerea in modo da non essere 
colpito dalle bombe sparate dal¬ 
l'aereo. Usa il cursore su/giù per 
muoverti verso sinistra e il cursore 
sinistra/destra per spostarti verso 


destra,- per sparare usa "RE¬ 
TURN". 

Attenzione: se il colpo precedente 
non è ancora scoppiato (contro un 
aereo, contro una stella o contro il 
bordo dello schermo) non è possi¬ 
bile sparare un altro colpo,- inoltre 
per rendere il gioco più difficile, 
alcuni aerei nemici sono quasi invi¬ 
sibili! 


il 






5 REM * * *CONTRAEREA* * * 



: rem 

249 

10 POKE53280,6:POKE53281,6 



: rem 

1 94 

20 D 

i=54272 



: rem 

231 

30 PRINTCHR?(147);CHR$(159) 



: rem 

10 

40 TL=1024:TR=TL+39:BL=TL+(40*22):BR= 

BL+39 

: rem 

1 59 

50 GOSUB3000 



: rem 

1 68 

1 00 

POKETL,112:POKETR,110:POKEBL,109: 

POKEBR,125 : rem 

107 

1 1 0 

FORJ=1T03 8 :POKETL+J,64 :POKEBL+J,64 


: rem 

85 

1 20 

IFJ<22THENPOKETL+40*J,93:POKETR+40*J, 

93 

: rem 

79 

1 30 

NEXT 



: rem 

21 1 

1 40 

FORJ =1TO100:P=RND(1 )*4 00+TL:IFPEEK(P) 

=32THENPOKEP 

,46 





: rem 

1 47 

1 50 

NEXT 



: rem 

21 3 

1 60 

TI$="000000" 



: rem 

249 

1 70 

S=0:S1=0:H=0:Hl=0 



: rem 

1 46 

200 

MX=20:MY=1 



: rem 

36 

210 

M=B.L+MX- 4 0 *MY 



: rem 

220 

230 

TX=0:TY=INT(RND(1)*8)+4 



: rem 

53 

240 

COL=INT(RND(1)*8) 



: rem 

1 81 

250 

TM=1:IFRND(1)>.9THENTM=2 



: rem 

1 85 

300 

POKEM,102 :POKEM+D,10 



: rem 

128 

31 0 

GOSUB500 



: rem 

1 69 

330 

FORJ=1T03 8STEPTM 



: rem 

32 

340 

PRINTTAB(33);MID$(TI$,4,1)"(TI$ 

,5) ;" 

{SU}":TT$=T 


1$ 



: rem 

1 77 

350 

IFTT$>="000200"THENPRINT"{HOME}{ 

3 GIU'}{ 

15 DES} 



{RVS}GAME OVER":GOTO800 



: rem 

64 

360 

TX=TX+TM::IFTX>38THENTX=38 



: rem 

21 3 

370 

T=BL+TX-40*TY 



: rem 

248 

380 

POKET,81 :POKET+D,COL 



: rem 

233 

390 

GOSUBbOO 



: rem 

1 78 

400 

IFBF=0THENBF=1 



: rem 

61 

41 0 

IFBF>0THENGOSUB700 



: rem 

96 

420 

POKET,32 :POKET+D,3 



: rem 

53 

430 

IFHl>HTHENH=Hl:GOSUB500:POKEM,102 

:POKEM+D, 

10 : rem 

200 

440 

GOSUB600 



: rem 

1 74 

4 50 

IFS1>STHENS=S1:GOTO230 



: rem 

1 36 

460 

NEXT 



: rem 

21 7 

470 

IFBF>1THENGOSUB700:GOTO470 



: rem 

1 1 7 

480 

GOTO230 



: rem 

1 06 

500 

PRINT"{HOME}{ 23 GIU'} PUNTI: TU" 

• C »» 
/ ^ t 

LORO" 

7 H ; 






: rem 

107 

51 0 

RETURN 



: rem 

1 1 8 

600 

Q=PEEK(197):GOSUB900 



: rem 

142 

605 

IFMF<1THEN66 5 



: rem 

250 

61 0 

IFMF=1THENMF=2:MP=M-40:GOTO660 



: rem 

89 

61 5 

POKEMP,32 



: rem 

249 

620 

MP=MP-40:IFPEEK(MP)=32THEN660 



: rem 

233 

630 

GOSUB2500 



: rem 

224 

640 

IFPEEK(MP)=81THENFORK=lT03:GOSUB2000: 

NEXT 

: rem 

1 24 


12 


64 5 IFPEEK(MP)= 126THENPOKEMP,42:FORK=lTOT 5 :NEXT:POKEMP,32 



:F=0:G0T0655 

: rem 

1 51 

650 

POKEMP+4 0,42 :FORK=lTOl0 :NEXT:POKEMP+40,32 

: rem 

5 

655 

GOSUB2 600:MF=0:G0T0665 

: rem 

54 

660 

POKEMP,30 

: rem 

247 

665 

RETURN 

: rem 

1 29 

700 

IFBF=1THENBF=2:DX=TX-MX:DY=TY-MY:BP=T+40-SGN(DX): 

GOTO 


735 

: rem 

1 03 

705 

POKEBP,32 

: rem 

238 

710 

BP=BP+40-SGN(DX):Z = PEEK(BP) : IFZ = 32THEN735 

: rem 

246 

71 5 

GOSUB2 500 

: rem 

228 

720 

EP=BP-40+SGN(DX):IFZ=102THENEP=BP-40 

: rem 

165 

725 

IFZ = 102THENPOKEBP,98:Hl=H+1 :FORK=lT05 rGOSUBl 005:NEXT: 


POKEBP,32 

: rem 

1 75 

730 

GOSUBl 000 :GOSUB2600 :RETURN 

: rem 

119 

735 

POKEBP,12 6 :RETURN 

: rem 

63 

800 

IFMF>0THENMF= 0 :POKEMP,32 

: rem 

238 

805 

IFBF>OTHENBF=0:POKEBP,32 

: rem 

21 0 

81 0 

IFS=HTHEN810 

: rem 

200 

81 5 

A$ = "HAI VINTO TU":IFH>STHENA$ = "HANNO VINTO 

LORO 1 ' 




: rem 

1 34 

820 

PRI NT " { HOME} { 7 GIU'H 13 DES } "A$ " DI";ABS(S-H) 




: rem 

206 

825 

FORJ=lT02000 :NEXT 

: rem 

28 

830 

PRINT"{HOME}{ 3 GIU'}{ 15 DES}{ 3 SPAZI}. . 
{ 3 SPAZI}":S=0:H=0:POKEM,32 

: rem 

241 

835 

PRINT" {HOME} { 7 GIU'H 13 DES } { 3 SPAZI}. { 

3 SPAZI}. 


{ 4 SPAZI}.} 4 SPAZI}.} 2 SPAZI}.} 4 SPAZI} 

" : rem 

90 

840 

SR=1 :GOSUB304 5 

: rem 

53 

845 

GOTO!60 

: rem 

113 

900 

IFQ=7ANDMX>1THENPOKEM,32 :M=M-1 :MX=MX-1:POKEM,l02: 

POKE 


M+D ,10 

: rem 

197 

905 

IFQ=2ANDMX< 38THENPOKEM,32:M=M+1 :MX=MX+1 :POKEM,102 

: POK 


EM+D,10 

: rem 

249 

91 0 

IFQ=1ANDMF=2ANDMP<BL-480THENPOKEMP,42 :POKEMP,90 :POKEM 


P, 32 

: rem 

1 27 

91 5 

IFQ=1ANDMF=0THENMF= 1 

: rem 

240 

920 

RETURN 

: rem 

1 23 

1 000 

BF=0 

: rem 

182 

1 005 

POKEEP,42 

: rem 

28 

1 01 0 

POKEEP-4 0,42 

: rem 

1 69 

1 01 5 

Xl=PEEK(EP-41):POKEEP-41,42 

: rem 

76 

1 020 

X2 = PEEK (EP-39) : P0KEEP-O9,42 

: rem 

87 

1 025 

POKEEP,32 

: rem 

29 

1 030 

POKEEP-40,32 

: rem 

1 70 

1 035 

POKEEP-41,X1 

: rem 

21 2 

1 040 

POKEEP-3 9,X2 

: rem 

21 6 

1 045 

RETURN 

: rem 

1 70 

2000 

EP = MP 

: rem 

49 

2005 

IFEP-80 >TLTHENX3 = PEEK(EP-80) :POKEEP-80,42 

: rem 

26 

201 0 

GOSUBl005 

: rem 

9 


13 


2015 

IFEP-80 >TLTHENPOKEEP-80,X3 



: rem 

1 58 

2020 

SI= S+1 



: rem 

52 

2030 

RETURN 



: rem 

1 65 

2500 

POKE54296,1 5 



: rem 

1 46 

251 0 

POKE54 2 77,200 



: rem 

1 90 

2520 

POKE542 78,200 



: rem 

1 92 

2530 

POKE542 73,1 37 



: rem 

1 97 

2540 

POKE54 2 72,43 



: rem 

145 

2550 

POKE54 2 76,1 29 



: rem 

203 

2560 

RETURN 



: rem 

173 

2600 

POKE54 2 76,0 



: rem 

91 

261 0 

POKE54 2 77,0 



: rem 

93 

2620 

POKE54273,0 



: rem 

95 

2630 

RETURN 



: rem 

1 71 

3000 

PRINT"{HOME}{ 3 GIU'H 13 DES}**CONTRAEREA* 

* »i 






: rem 

223 

301 0 

PRINT"{ 2 GIU 1 }{ 2 DES}{RVS}CURSORE 

SU/GIU' 

{OFF} 



{ 9 SPAZI}= SINISTRA" 



: rem 

69 

301 5 

PRINT"{GIU'}{ 2 DES}{RVS}CURSORE SINISTRA/DESTRA 



{OFF} = DESTRA" 



: rem 

1 1 

3020 

PRINT"{GIU'}{ 2 DES}{RVS}RETURN{OFF}{ 

18 SPAZI}= 

FUO 


CO. " 



: rem 

76 

3030 

F0RJ=55296T056295:POKEJ,3:NEXT 



: rem 

1 20 

3040 

PRINT"{ 3 GIU'}{ 9 DES}HAI DUE MINUTI 

DI TEMPO" 






: rem 

104 

3045 

PRINT"{HOME}{ 12 GIU'}{ 6 DES}PREMI 

SPACE QUANDO 

SEI 


PRONTO" 



: rem 

1 58 

3050 

GETQ$:IFQ$ <>CHR$(32)THEN3050 



: rem 

1 31 

3055 

IFSROl THEN3500 



: rem 

163 

3100 

PRINT"{HOME}{ 12 GIU'}{ 4 DES}{ 31 

SPAZI}" 

: rem 

232 

31 1 0 

RETURN 



: rem 

1 65 

3500 

PRINT"{HOME}{ 3 GIU'}{ 12 DES}{ 15 

SPAZI}" 

: rem 

59 

351 0 

PRINT" { 2 GIU'H 2 DES} { 3 5 SPAZI}" 



: rem 

246 

3520 

PRINT"{GIU 1 }{ 2 DES}{ 35 SPAZI}" 



: rem 

230 

3530 

PRINT"{GIU'}{ 2 DES}{ 32 SPAZI}" 



: rem 

231 

3540 

PRINT"{ 3 GIU 1 }{ 7 DES}{ 25 SPAZI}" 



: rem 

1 55 

3550 

PRINT"{HOME}{ 12 GIU’}{ 6 DES}{ 29 

SPAZI}" 

: rem 

43 

3560 

RETURN 



: rem 

1 74 


h 

^Pescatore subacqueo 


Joe ha appena terminato di fre¬ 
quentare un corso di pesca subac¬ 
quea e ha invitato tutti i suoi amici 


a un pranzetto coi fiocchi a base 
di pesce, il cui piatto forte sarà una 
zuppa di pesce appena pescato. 


14 





Logicamente il pesce lo vuole pe¬ 
scare Joe, per dimostrare ai suoi 
amici la sua bravura nella pesca su¬ 
bacquea. 

Così, dopo aver Indossato una tuta 
da sub, un palo di pinne, due 
bombole e una maschera, Joe è 
andato su di una piattaforma gal¬ 
leggiante un pò al largo, dal quale 
è pronto a entrare in acqua e fare 
scempio del pesce che gli si para 
davanti. 

Appena entrato in acqua, però, 
Joe si accorge che ci sono grossi 
squali assassini che gironzolano 
nei dintorni. 

Perché non aiutarlo a evitarli e a 
pescare il pesce per la zuppa? 


Per farlo basta muovere Joe con i 
tasti: 

A . per andare a sinistra 

S . per andare a destra 

W. . per andare sù 

Z . per andare giù 

Joe ha, nelle sue bombole, una ri¬ 
serva di aria per tre minuti e se 
questa sta per finire basta che torni 
sulla piattaforma per fare riforni¬ 
mento. 

Gli squali sono pericolosi solo se 
hanno la bocca aperta e se tocca¬ 
no Joe con le mandibole; altrimenti 
non sono di alcun pericolo. 

Ed ora forza e . attenzione a 

non diventare il pranzo degli squa¬ 
li!!! 


2 

REM 

: rem 

22 

3 

POKE53269,0:REM CANCELLA TUTTI GLI SPRITE 

: rem 

101 

6 

PRINT"{CLR}{ 2 SPAZI}ATTENDERE PREGO, CARICAMENTO DATI. 


It 

• • 

: rem 

1 77 

1 0 

REM 

: rem 

69 

20 

GOSUB5000 

: rem 

167 

25 

GOSUB3000 

: rem 

170 

30 

POKEV+16,0:POKEV+ 21,0 

: rem 

1 27 

40 

FORK=0TO7:POKEV+K*2,0 :POKEV+K*2 + 1,0:NEXTK 

: rem 

21 5 

50 

REM I NUMERI DEGLI SPRITE SONO I SEGUENTI 

: rem 

138 

51 

REM 0,1 E 2 SONO GLI SQUALI 

: rem 

56 

52 

REM 3,4,5 SONO I PESCI 

: rem 

59 

53 

REM 6 NON E' USATO 

: rem 

101 

54 

REM 7 E' IL SUB 

: rem 

111 

60 

REM X(7)ANDY(7)SONO LE COORDINATE D£I 7 SPRITE 

: rem 

11 8 

61 

REM XX(7) SONO I BYTE PIU' SIGNIFICATIVI 

DELLE COORDIN 


ATE X 

: rem 

1 95 

62 

DIMX(7),Y(7),XX(7) 

: rem 

147 

63 

REM 

: rem 

77 

64 

DIMFD(5) 

: rem 

84 

65 

REM 

: rem 

79 

66 

DIMFM(5) 

: rem 

95 

67 

REM 

: rem 

81 

68 

DIMFS(5),FU(5) 

: rem 

180 

70 

REM ESPANDE GLI SQUALI 

: rem 

246 

72 

POKEV+29,7 :POKEV+2 3,7 

: rem 

1 53 

80 

REM FU (5) SONO I COLORI DEGLI SPRITE 

: rem 

249 

81 

REM GLI SQUALI SONO NERI 

: rem 

101 


15 








82 

FU(0)=U0:FU(1 ) =U0:FU(2)=U0 

: rem 

1 23 

83 

REM I PESCI HANNI COLORI DIFFERENTI 

: rem 

34 

84 

REM IL PESCE-SPRITE 3 E' ROSSO 

: rem 

1 42 

85 

FU(3)=U7 

: rem 

85 

86 

REM IL PESCE-SPRITE 4 E' BLU CHIARO 

: rem 

148 

87 

FU(4)=U9 

: rem 

90 

88 

REM IL PESCE-SPRITE 5 E' GIALLO 

: rem 

182 

89 

FU(5)=UE 

: rem 

105 

90 

REM IL SUB E' VERDE CHIARO 

: rem 

1 00 

91 

POKEV+46,UR 

: rem 

87 

92 

FORJ = 0 TO 5 :POKEV+3 9+J , FU (J) : NEXTJ 

: rem 

209 

99 

REM *** S=TIPO DI SUB *** 

:rem 

149 

1 00 

GOSUB4000 

: rem 

21 3 

1 20 

REM SETTA I PESCI 

: rem 

1 81 

1 30 

POKEV+16,0:F0RK=3T05 

: rem 

1 87 

1 35 

FS(K)=1 : IFRND ( 1 )>. 5THEN1 50 

: rem 

209 

1 40 

XX (K)=0:X(K)=0:Y(K)=INT(RND { 1 ) *1 30+80) 

: rem 

72 

1 45 

FS=4 : FM(K ) =INT(RND(1 ) *2+2) : FD(K)=INT(RND(1 ) 

*5-2) 




: rem 

162 

1 48 

POKE2040+K,(240+FS):GOTOl60 

: rem 

233 

1 50 

XX(K)=1 :X(K)=98 :Y(K)=INT(RND(1)*1 30 + 80) 

: rem 

139 

1 55 

FS=5:FM(K)=-INT(RND(1)*2+2):FD(K)=INT(RND(1 

)*5-2) 




: rem 

209 

1 56 

POKEV+16 , PEEK(V+l6)+2tK 

: rem 

67 

1 58 

POKE2040+K,(240+FS):GOT0160 

: rem 

234 

1 60 

POKEV+K* 2 , X(K) : POKEV+K* 2 + 1 ,Y(K) 

: rem 

28 

1 65 

NEXTK 

: rem 

38 

1 80 

POKEV+21 , 184 

: rem 

1 1 7 

1 82 

REM ABILITA LO SPRITE DEL SUB 

: rem 

166 

1 90 

X(7)=197 : Y(7)=53:POKEV+4 6,UF:S = l1 : T= 1 

: rem 

91 

200 

REM PRENDE UN CARATTERE DALLA TASTIERA 

: rem 

45 

21 0 

K1=PEEK(197) 

: rem 

99 

220 

IFKl=12THEN230 

: rem 

3 

221 

IFT=1THEN300 

: rem 

168 

222 

IFKl=9THEN240 

: rem 

220 

223 

IFY(7)<75THEN300 

: rem 

11 3 

224 

IFKl=13THEN250 

: rem 

10 

226 

IFKl=10THEN260 

: rem 

10 

228 

Y ( 7)=Y ( 7)+1 : IFY(7)>220THENY(7)=22 0 

: rem 

84 

229 

GOTO300 

: rem 

105 

230 

IFT=1ANDY(7)>75THENT=0:POKEV+4 6 ,UR:TA=TI + 1 0800 




: rem 

40 

232 

Y(7)=Y(7)+4 :IFS = 11THENS=10:GOTO2 34 

: rem 

220 

233 

S= 1 1 

: rem 

1 38 

234 

IFY(7)>220THENY(7) =220 

: rem 

188 

236 

GOTO300 

: rem 

103 

240 

Y(7)=Y(7)-4 : IFS=11THENS = 10:GOTO2 44 

: rem 

222 

242 

S= 1 1 

: rem 

138 

244 

IFY(7)<118ANDX(7)>183ANDX(7) < 206THEN2 4 8 

: rem 

193 

245 

IFY(7) < 76THENY(7)=76 

: rem 

no 

246 

GOTO300 

: rem 

104 


16 


248 

X(7)=195 :IFY(7)<54THENPOKEV+46,UF:T=1 

: rem 

1 81 

249 

GOTO300 

: rem 

107 

250 

X(7)=X(7)+5 :IF(S<4ANDS>1)THENS = 10:GOTO2 54 

: rem 

1 48 

251 

IFS=0THENS=1:G0T02 54 

: rem 

229 

252 

S=0 

: rem 

89 

254 

IFXX(7)=1THEN2 57 

: rem 

1 57 

255 

IFX(7)>255THENXX(7)=1:X(7)=4:POKEV+l6,PEEK(V+l6)+128 



: rem 

230 

256 

GOTO300 

: rem 

1 05 

257 

IFX(7)>78THENXX(7)=0:X(7)=19:POKEV+l6,PEEK(V+l 6)- 

128 



: rem 

242 

258 

GOTO300 

: rem 

107 

260 

X(7)=X(7)-5 :IFS<2THENS=11 :G0T0264 

: rem 

177 

261 

IFS=2THENS=3:G0T0264 

: rem 

235 

262 

S=2 

: rem 

92 

264 

IFXX(7)=1THEN267 

: rem 

159 

265 

IFX(7)<19THENXX(7)=1:X(7)=7 8:POKEV+16,PEEK(V+16)+1 28 



: rem 

238 

266 

GOTO300 

: rem 

106 

267 

IFX(7)< OTHENXX(7)=0:X(7)=251 :P0KEV+16,PEEK(V+16)- 

128 



: rem 

224 

268 

GOTO300 

: rem 

108 

300 

P0KE2 04 7,S+24 0 :POKEV+1 4,X(7) 

: rem 

42 

31 0 

POKEV+15,Y(7) 

: rem 

1 83 

320 

Q=PEEK (V+30) : IFQO0THEN330 

: rem 

6 

325 

GOTO400 

: rem 

103 

330 

REM COLLISIONI DEGLI SPRITE 

: rem 

1 71 

331 

IFQ=>128THEN333 

: rem 

85 

332 

GOTO400 

: rem 

101 

333 

FORK=0TO5:IFFS(K)=0THEN340 

: rem 

65 

334 

IFQAND21KTHEN336 

: rem 

243 

335 

GOTO340 

: rem 

107 

336 

XF=ABS((XX(7)*255+X(7))-(XX(K)*255+X(K))) 

: rem 

167 

337 

YF=ABS(Y(7)-Y(K)) 

: rem 

1 63 

338 

IFK<3ANDXF<25ANDYF<20THEN345 

: rem 

21 4 

339 

IFK>2ANDXF<14ANDYF<14THEN345 

: rem 

21 7 

340 

NEXTK:GOTO400 

: rem 

40 

345 

IFK< 3ANDFS(K)=2THEN615 

: rem 

39 

347 

IFK< 3THEN340 

: rem 

1 73 

350 

FORL=1T020 :POKEV+3 9+K,Ul :FORM=lTOl0 :NEXTM 

: rem 

98 

355 

POKEV+3 9 +K,U0 :FORM=1TO10 :NEXTM:NEXTL 

: rem 

75 

360 

POKEV+39+K,FU(K) 

: rem 

142 

365 

P = P+1 :IFXX(K)=1THENPOKEV+16,PEEK(V+l 6)-2TK: 

XX(K)= 

0 



: rem 

37 

370 

POKEV+K*2,0:POKEV+K*2 + l,0 : X(K)=0 :Y(K)=0 

: rem 

205 

380 

POKEV+21,PEEK(V+21)-2tK:FS(K)=0 

: rem 

24 

400 

’REM random PER PESCI 

: rem 

1 48 

410 

R=INT(RND(1)*100):IFR>8THEN500 

: rem 

21 4 

41 5 

IFR>5THENR=R-3 

: rem 

94 

420 

IFFS (R) O0THEN450 

: rem 

21 1 

430 

FS(R)=1 :IFRND(1)>.5THEN440 

: rem 

21 6 
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434 

XX (R) =0 :X (R) =0 :Y (R) = INT ( RND ( 1 ) *1 30+80) 

: rem 

99 

435 

POKEV+21,PEEK(V+21)+2tR 

: rem 

66 

436 

FS=4:FM(R)=INT(RND(1)*2+2):FD(R)=INT(RND(1)* 

•5-2) 




: rem 

1 79 

437 

IFR< 3THENFS = 6 

: rem 

41 

438 

POKE2040+R,(240+FS):GOTO500 

: rem 

240 

440 

XX(R)=1:X(R)=95:Y(R)= INT(RND(1)*130+80) 

: rem 

159 

442 

POKEV+21,PEEK(V+21)+2tR 

: rem 

64 

444 

POKEV+16,PEEK(V+l6)+2 TR 

: rem 

74 

446 

FS = 5 :FM(R)=-INT(RND(1)*2+2) :FD (R)=INT(RND(1) 

*5-2) 




: rem 

226 

447 

IFR< 3THENFS = 8 

: rem 

44 

448 

POKE2040+R,(240+FS):GOTO500 

: rem 

241 

450 

IFFS(R)=1THEN460 

: rem 

1 55 

455 

FS(R)=1 :IFRND(1)>.5THEN436 

: rem 

228 

457 

G0T0446 

: rem 

119 

460 

FD(R)=INT(RND(1)*9-4):FM(R)=FM(R)*4*(INT(RND(1)*2) 

*2- 


1) 

: rem 

222 

470 

FS(R)=2 :IFR<3THEN480 

: rem 

1 55 

472 

IFSGN(FM(R))=1THENPOKE2040+R,(240+4) 

: rem 

28 

474 

IFSGN(FM(R))=-1THENPOKE2040+R,(240+5) 

: rem 

76 

475 

GOTO500 

: rem 

11 0 

480 

IFSGN(FM(R))=1THENPOKE2040+R,(240+7) 

: rem 

30 

490 

IFSGN(FM(R))=-1THENPOKE2 04 0+R, (240+9) 

: rem 

78 

500 

FORK=0TO5:IFFS(K)=0THEN600 

: rem 

60 

51 0 

X (K) =X (K) +FM (K) : Y (K) =Y (K) +FD (K) 

: rem 

199 

51 2 

IFY(K)<80THENY(K)=80 

: rem 

137 

51 3 

IFY(K)>220THENY(K)=220 

: rem 

228 

51 5 

IFRND(1)>.92THENFD(K)=INT(RND(1)*5-2) 

: rem 

89 

520 

IFXX(K)ANDX(K)<0THEN550 

: rem 

no 

525 

IFX(K)<0THEN560 

: rem 

85 

530 

IFX(K)>255THEN540 

: rem 

1 89 

535 

IFXX(K)ANDX(K)>98THEN570 

: rem 

1 85 

539 

GOTO590 

: rem 

120 

540 

XX(K)=1:X(K)=X(K)-255:POKEV+16,PEEK(V+16)+2tK 




: rem 

92 

545 

GOTO590 

: rem 

11 7 

550 

XX(K)=0:X(K)=2 55+X(K):POKEV+16,PEEK(V+l6)-2tK 




: rem 

92 

555 

GOTO590 

: rem 

118 

560 

XX (K)=1 :X(K)=95+X(K):POKEV+16,PEEK(V+16)+2tK 

: rem 

46 

565 

GOTO590 

: rem 

119 

570 

XX(K)=0:X(K)=X(K)-98 :POKEV+16,PEEK(V+l6)-2tK 

: rem 

53 

575 

GOTO590 

: rem 

1 20 

590 

POKEV+K*2,X(K):POKEV+K*2+1,Y(K) 

: rem 

35 

600 

NEXTK:GOTO700 

: rem 

42 

61 5 

REM IL SUB E' STATO MANGIATO 

: rem 

70 

620 

FORL=1T02 0 :POKEV+4 6,U1 :FORM=1TOl0 :NEXTM 

: rem 

234 

625 

POKEV+46,U0:FORM=1TOl0 :NEXTM:NEXTL 

: rem 

21 1 

630 

POKEV+46,UR 

: rem 

1 34 
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632 

PRINTU7$"{HOME} {RVS}NIENTE PESCE! SEI 

TU LA 

ZUPPA! 

! ! " 




: rem 

1 59 

635 

PRINTU7$;"{HOME}{GIU'}{RVS}MANGIATO DA UNO 

SQUALO! 

! ! " 




: rem 

1 43 

640 

GOTO820 


: rem 

1 09 

700 

PRINTUO$"{HOME}{RVS}PESCI PRESI="P;U9$ 

: rem 

1 98 

705 

IFT=1THENPRINT"{HOME}{GIU' }{RVS}{ 1 4 

SPAZI} 

":GOT02 00 




: rem 

40 

71 0 

PRINT"{HOME}{GIU'}{RVS}ARIA{ 4 SPAZI} 

={ 5 SPAZI} 



{ 5 SIN}"INT((TA-TI)/60) 


: rem 

1 39 

720 

IF(TA-TI)C0THEN800 


: rem 

11 

750 

GOTO20O 


: rem 

103 

800 

PRINT"{HOME}{ 20 SPAZI}" 


: rem 

1 24 

805 

PRINTUl$;"{HOME}{RVS}"S"PESCI FINISCONO NELLA TUA 

ZUP 


PA! ! " 


: rem 

83 

81 0 

PRINTU7S;"{HOME}{GIU 1 }{RVSjHAI FINITO 

L'ARIA.. 





: rem 

64 

820 

PRINTUl{HOME}{ 2 GIU'}ANCORA{ 5 SPAZI}(S/N)?" 





: rem 

1 53 

830 

GETA$: IFA$<>""THEN830 


: rem 

1 50 

840 

GETA$:IFA$=""THEN840 


: rem 

91 

850 

IFA$="S"THENRUN 


: rem 

1 37 

860 

IFA$ = " N " THENPRINT"MOLTE GRAZIE PER AVER GIOCATO CON M 


E ! ! ! !" : END 


: rem 

1 98 

870 

GOTO840 


: rem 

11 6 

999 

END 


: rem 

1 30 

3000 

REM TITOLO 


: rem 

1 30 

301 0 

POKEUG ,U9:POKEUB,U2:PRINTU2$"{CLR} { 

12 GIU' } 



{ 9 SPAZI } {RVS}U{ 20 *}l" 


: rem 

1 93 

3020 

PRINT" { 9 SPAZlj{RVS}-{OFF}PESCATORE 

SUBACQUEO.{RVS} 


-{OFF}" 


: rem 

20 

3030 

PRINT" { 9 SPAZI}{RVS}J{ 20 *}K" 


: rem 

62 

3250 

PRINT" { 4 SPAZI}* PREMERE UN TASTO PER GIOCARE *" 





: rem 

1 4 

3260 

GETA$ : IFA$<>""THEN3260 


: rem 

246 

3270 

GETA$ : Q=RND ( 1 ): IFA$=""THEN3270 


: rem 

233 

3280 

RETURN 


: rem 

1 73 

4000 

REM CANCELLA LO SCHERMO E STAMPA IL 

MARE 

: rem 

76 

4010 

POKEUB,U0 : POKEUG, U 4 


: rem 

246 

4 020 

PRINT"{CLR}"U9$; 


: rem 

23 

4030 

FORJ=0TO3 


: rem 

59 

4040 

PRINT" { RVS }{ 40 SPAZI}"; 


: rem 

230 

4050 

NEXTJ 


: rem 

82 

4 060 

PRINT "{ HOME }{ 3 GIU'}{ 20 DES}"; 


: rem 

96 

4070 

PRINTU6$"{RVS}{ 6 SPAZI}"; 


: rem 

1 52 

4080 

PRINTU0$"{OFF}{GIU'}{ 4 SIN}{ 2 +}{GIU'}{ 

2 SIN} 



{ 2 +}{GIU'}{ 2 SIN }{ 2 +}{GIU'}I 2 

SIN} { 

2 +} {GIU' } 


{ 2 SIN }{ 2 +} {GIU '}{ 2 SIN }{ 2 +}" 


: rem 

24 

41 00 

PRINTU3$ "{ 9 GIU'}" 


: rem 

21 9 

4110 

PRINT" { 10 SPAZI }*{ 2 SPAZI }*{ 4 SPAZI }*{ 

21 SPAZI} 


Il » 
f 


: rem 

80 


19 


41 20 

41 30 

41 40 

4150 

4900 

5000 

5001 

5002 

5004 

5005 

5006 

5007 

5008 

501 0 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

51 1 0 

51 20 

51 30 

51 40 

51 50 

51 60 

51 70 

51 80 

51 90 

521 0 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

531 0 

5320 

5330 

5340 

5350 


PRINT"{ 7 SPAZI}* **{ 2 SPAZI}**} 3 SPAZI}* 


{ 2 SPAZI}* *{ 7 SPAZI}*} 8 SPAZI}"; 

: rem 

77 

PRINT"{ 7 SPAZI}****} 2 SPAZI}** * *} 2 

SPAZI}* 

* 

{ 4 SPAZI}*} 2 SPAZI}**} 7 SPAZI}"; 

: rem 

246 

PRINT"} 5 SPAZI}*********************} 

2 SPAZI} ’ 

k k k k 

{ 2 SPAZI}*} 4 SPAZI}"; 

: rem 

25 

PRINTU5$;"{ 2 SPAZI}{RVS}£{ 34 SPAZI}[< 
{HOME}" 

*>]{OFF} 

: rem 

1 95 

RETURN 

: rem 

1 73 

REM SUBROUTINE DI LETTURA DATI SPRITE 

: rem 

96 

REM V=VARIABILE CONTENENTE INIZIO LOCAZIONI PER 

GLI 

SPRITE 

: rem 

21 1 

V=53248 

: rem 

96 

REM ALTERA I PUNTATORI DI INIZIO E FINE 

MEMORIA 

BASI 

C 

: rem 

1 67 

POKE52,60:POKE56,60 

: rem 

88 

REM CARICA I DATI NEI BLOCCHI DA 240 IN 

SU : rem 

231 

FORK= OTOl1 :FORJ = 0TO62 

: rem 

83 

RE ADA :POKE(24 0+K)*64+J,A:NEXTJ,K 

: rem 

1 60 

REM SUB A DESTRA 1 

: rem 

201 

DATA0,0,0,0,0,0,0,0 

: rem 

1 49 

DATA0,0,0,0,0,0,0,32 

: rem 

203 

DATA31,192,112,31,192,152,127,236 

: rem 

1 20 

DATAI 5, 2 55,2 54,1 27,2 55, 23 8,64,6 

: rem 

40 

DATA0,64,31,255,0,1,224,0 

: rem 

220 

DATA0,0,0,0,0,0,0,0 

: rem 

1 54 

DATA0,0,0,0,0,0,0,0 

: rem 

1 55 

DATAO,0,0,0,0,0,0 

: rem 

64 

REM SUB A DESTRA 2 

: rem 

203 

DATAO,0,0,0,0,0,0,0 

: rem 

1 50 

DATAO,0,0,0,0,0,0,0 

: rem 

1 51 

DATA31,192,64,31,192,112,127,236 

: rem 

75 

DATA95,255,2 54,79,2 55,238,252,6 

: rem 

54 

DATAO,192,31,255,64,1,224,32 

: rem 

1 26 

DATAO,0,0,0,0,0,0,0 

: rem 

1 55 

DATAO,0,0,0,0,0,0,0 

: rem 

1 56 

DATAO,0,0,0,0,0,0 

: rem 

65 

REM SUB A SINISTRA 1 

: rem 

11 7 

DATAO,0,0,0,0,0,0,0 

: rem 

1 51 

DATAO,0,0,0,0,0,0,3 

: rem 

1 55 

DATA248,0,3,248,12,55,254,26 

: rem 

1 36 

DATAI 27,255,241 , 1 1 9,255, 1 92,1 , 1 92 

: rem 

135 

DATA96,255,248,56,14,0,8,0 

: rem 

44 

DATAO,8,0,0,8,0,0,0 

: rem 

1 72 

DATAO,0,0,0,0,0,0,0 

: rem 

1 57 

DATAO,0,0,0,0,0,0 

: rem 

66 

REM SUB A SINISTRA 2 

: rem 

11 9 

DATAO,0,0,0,0,0,0,0 

: rem 

1 52 

DATAO,0,0,0,0,0,0,3 

: rem 

1 56 

DATA248,0,3,248,0,55,254,0 

: rem 

30 

DATAI 27,255,255,119,255, 249,1,1 92 

: rem 

1 44 


5360 

DATAI 3,255,248,9,14,0,16,0 

: rem 

31 

5370 

DATAO,0,0,0,0,0,0,0 

: rem 

1 57 

5380 

DATAO,0,0,0,0,0,0,0 

: rem 

1 58 

5390 

DATAO,0,0,0,0,0,0 

: rem 

67 

5410 

REM PICCOLO PESCE A DESTRA 

: rem 

43 

5420 

DATAO,0,0,0,0,0,0,0 

: rem 

1 53 

5430 

DATAO,0,0,0,0,0,0,0 

: rem 

1 54 

5440 

DATAO,0,0,0,0,0,12,0 

: rem 

206 

5450 

DATA4,62,0,3,125,0,1 , 255 

: rem 

176 

5460 

DATAI 28,3,125,0,4,28,0,0 

: rem 

177 

5470 

DATAO,0,0,0,0,0,0,0 

: rem 

1 58 

5480 

DATAO,0,0,0,0,0,0,0 

: rem 

1 59 

5490 

DATAO,0,0,0,0,0,0 

: rem 

68 

551 0 

REM PICCOLO PESCE A SINISTRA 

: rem 

21 4 

5520 

DATAO,0,0,0,0,0,0,0 

: rem 

1 54 

5530 

DATAO,0,0,0,0,0,0,0 

: rem 

1 55 

5540 

DATAO,0,0,0,0,0,96,0 

: rem 

21 9 

5550 

DATAO,240,64,1,125,128,3,255 

: rem 

1 28 

5560 

DATAO,!,125,128,0,112,64,0 

: rem 

1 6 

5570 

DATAO,0,0,0,0,0,0,0 

: rem 

1 59 

5580 

DATAO,0,0,0,0,0,0,0 

: rem 

1 60 

5590 

DATAO,0,0,0,0,0,0 

: rem 

69 

561 0 

REM SQUALO A DESTRA 

: rem 

1 37 

5620 

DATAO,0,0,0,0,0,0,16 

: rem 

21 0 

5630 

DATAO,0,24,0,0,28,0,128 

: rem 

1 1 9 

5640 

DATA30,0,192,31,0,192,63,128 

: rem 

1 28 

5650 

DATA96,255,192,115,255,248,127,255 

: rem 

204 

5660 

DATA223,127,255,254,127,255,84,113 

: rem 

1 90 

5670 

DATA255,252,224,255,240,128,63,192 

: rem 

1 91 

5680 

DATAO,30,0,0,0,0,0,0 

: rem 

21 2 

5690 

DATAO,0,0,0,0,0,0 

: rem 

70 

571 0 

REM SQUALO A DESTRA CON LA BOCCA APERTA 

: rem 

1 2 

5720 

DATAO,0,0,0,0,0,0,16 

: rem 

21 1 

5730 

DATAO,0,24,0,0,28,0,128 

: rem 

1 20 

5740 

DATA30,0,192,31,0,192,63,128 

: rem 

1 29 

5750 

DATA96,255,255,115,255,222,127,255 

: rem 

1 97 

5760 

DATA244,127,255,208,127,255,64,113 

: rem 

1 91 

5770 

DATA255,232,224,255,252,128,63,192 

: rem 

1 93 

5780 

DATAO,30,0,0,0,0,0,0 

: rem 

21 3 

5790 

DATAO,0,0,0,0,0,0 

: rem 

71 

581 0 

REM SQUALO A SINISTRA 

: rem 

53 

5820 

DATAO,0,0,0,8,0,0,24 

: rem 

21 9 

5830 

DATAO,0,56,1,0,120,3,0 

: rem 

64 

5840 

DATA248,3,3,252,7,15,255,142 

: rem 

140 

5850 

DATA59,255,254,255,255,252,85,255 

: rem 

1 59 

5860 

DATA254,63,255,206,15,255,6,7 

: rem 

200 

5870 

DATA252,3,0,240,0,0,96,0 

: rem 

1 79 

5880 

DATAO,0,0,0,0,0,0,0 

: rem 

1 63 

5890 

DATAO,0,0,0,0,0,0 

: rem 

72 

591 0 

REM SQUALO A SINISTRA CON LA BOCCA APERTA 

: rem 

1 84 

5920 

DATAO,0,0,0,8,0,0,24 

: rem 

220 


21 


5930 DATAO,0,56,1,0,120,3,0 

5940 DATA248,3,63,252,7,247,255,142 

5950 DATA95,255,254,23,255,252,5,127 

5 960 DATA254,43,255,206,63,2 55,6,7 

5970 DATA252,3,0,240,0,0,96,0 

5980 DATAO,0,0,0,0,0,0,0 

5990 DATAO,0,0,0,0,0,0 

6010 REM SU3 A SINISTRA CON LA MANO ALZATA 

6020 DATAO,0,0,2,0,0,2,0 

6030 DATAO,2,56,0,2,56,0,2 

6040 DATA56,0,3,16,0,1,255,0 

6050 DATAO,125,128,0,124,128,0,124 

60 60 DATAI 28,0,124,128,0,125,128,0 

6070 DATAI 1 0,0,0,1 02,0,0,1 02,0 

6080 DATAO,102,0,0,102,0,0,103 

6090 DATAI 20,0,96,0,1 , 224,0 

6110 REM SUB A DESTRA CON LA MANO ALZATA 

6120 DATAO,0,0,0,1,0,0,1 

6130 DATAO,0,57,0,0,57,0,0 

6140 DATA57,0,0,19,0,1,254,0 

6150 DATA3,124,0,2,124,0,2,124 

6160 DATAO,2,124,0,3,124,0,0 

6170 DATA236,0,0,204,0,0,204,0 

6180 DATAO,204,0,0,204,0,3,204 

6190 DATAO,0,12,0,0,15,0 

7000 REM ****************************** 

7002 REM CODICI COLORI 

7005 REM (SONO USATI SOLO QUESTI COLORI) 

7010 U0=0:U0$="{BLK}":REM NERO 

7020 Ul=1 :Ul$ = "{WHT}": REM BIANCO 

7030 U2=2:U2$="{RED}":REM ROSSO SCURO 

7040 U3=5:U3$="{GRN}": REM VERDE 

7050 U4 = 6:U4$ = "{BLU}": REM BLU SCURO 

7060 U5=8:U5$=CHR$(129):REM ARANCIONE 

7070 U6=9:U6$="[<2>]REM MARRONE SCURO 

7080 U7 = l0:U7$ = "[< 3 >]":REM ROSA 

7090 U8=l3:U8$="[<6>]":REM VERDE CHIARO 

7100 U9=l4:U9$="[<7>]":REM BLU CHIARO 

7110 UU=4:UU$="{PUR}":REM VIOLA 

7120 UR=12:UR$="[<5>]":REM GRIGIO CHIARO 

71-30 UE=7 :UE$ = " {YEL} " : REM GIALLO 

7140 UF = 11 :UF$ = "[<4>]": REM GRIGIO SCURO 

7200 REM LOCAZIONI PER LO SCHERMO 

7210 US = 1 02 4 : REM LOCAZIONI DI SCHERMO CARATTERI 

7220 UC=552 96 : REM LOCAZIONI DI SCHERMO COLORI 

7230 UG=532 81 :REM COLORE DI SFONDO 

7240 UB=53280:REM COLORE DI BORDO 

7300 REM LOCAZIONI PER IL SUONO 

7310 UV=54296:REM VOLUME PER LE TRE VOCI 

7320 UA=54277:REM ATTACCO PER VOCE 1 

7330 UD=54278:REM SUSTAIN PER VOCE 1 


: rem 

65 

: rem 

250 

: rem 

47 

: rem 

202 

: rem 

1 80 

: rem 

1 64 

: rem 

73 

: rem 

1 52 

: rem 

1 54 

: rem 

1 9 

: rem 

1 22 

: rem 

1 65 

: rem 

1 70 

: rem 

1 95 

: rem 

1 98 

: rem 

76 

: rem 

239 

: rem 

153 

: rem 

16 

: rem 

1 23 

: rem 

21 4 

: rem 

1 1 0 

: rem 

21 1 

: rem 

21 0 

: rem 

171 

: rem 

1 51 

: rem 

32 

: rem 

1 66 

: rem 

0 

: rem 

241 

: rem 

1 30 

: rem 

222 

: rem 

220 

: rem 

141 

: rem 

140 

: rem 

77 

: rem 

77 

: rem 

1 82 

: rem 

1 62 

2 rem 

1 96 

2 rem 

1 98 

2 rem 

1 30 

2 rem 

232 

2 rem 

1 21 

2 rem 

21 5 

2 rem 

224 

2 rem 

1 36 

2 rem 

1 02 

2 rem 

71 

2 rem 

1 0 

2 rem 

55 


22 


7340 UH=54273:REM BYTE ALTO PER VOCE 1 
7350 UL=54272:REM BYTE BASSO PER VOCE 1 
7360 UW=54276:REM FORMA D'ONDA PER LA VOCE 1 
7400 RETURN 

7500 REM ***************************** 


rem 

11 6 

rem 

1 92 

rem 

1 79 

rem 

1 71 

rem 

1 1 4 


Il cane da pastore 



Che vita da cani! E, in specifico, 
che vita da pastori maremmani! In 
questo interessante gioco interpre¬ 
terai appunto un cane da pastore, 
il cui compito è di fare rientrare nel 
recinto quattro bizzose pecore. 
Puoi muovere il cane utilizzando la 
tastiera come spiegato nel gioco, e 
chiudi il cancello dell'ovile per 


mezzo della barra spaziatrice. Per 
far sì che la tua opera sia fruttuosa, 
tieni conto che le pecore tendono 
ad allontanarsi dal cane,- personal¬ 
mente 'la migliore tattica di gioco 
che ho trovato è cercare di tenere 
le pecore il più possibile unite, 
senza mai spingerle verso il bordo 
dello schermo. Buon pascolo! 


0 POKE53281 , 5 :POKE53280,7 :PRINT"{CLR}{ 8 GIU'}{ 8 DES} 

(nr.ifliTn'BMnuoi' nuum i « • 


{BLK}ATTENDERE PREGO !" 

:rem 

105 

10 GOSUB6000 

: rem 

167 

20 GOSUB5000 

: rem 

167 

30 GOTOl80 

: rem 

53 

50 PRINT"{WHT}{CLR}{ 5 GIU’}{ 10 DES}[<A>]{ 9 

C}[<S>]" 

; :P 

RI NT 

: rem 

1 28 

51 F0RI=1T04SPRINT"{ 10 DES}B{ 9 SPAZI}B"PRINT:NEXTI 

:rem 

80 

52 PRINT"{ 10 DES}[<Z>]{ 4 C} { 4 C}[<X>]" 

: rem 

220 

55 PRINT"{HOME}{RED}{ 40 X}"; 

:rem 

101 

56 FORI=lTO20:PRINT"X{ 38 DES}X";:NEXTI 

: rem 

20 

57 PRINT"{ 40 X}{WHTT"; 

: rem 

61 

61 RETURN 

: rem 

71 

100 P=PEEK(197):IFP=60THENRETURN 

:rem 

0 

110 SYSPR,DX,DY," ":ZZ=TL+DX+40*DY 

: rem 

28 

120 IFP=33THENIFPEEK(ZZ-40)=32THENDY=DY-1 

:rem 

52 

130 IFP=37THENIFPEEK(ZZ+1)=32THENDX=DX+1:DD=1 

:rem 

48 

1 40 IFP=*34THENIFPEEK(ZZ-1) =32THENDX=DX-1 :DD=2 

: rem 

51 

150 IFP“36THENIFPEEK(ZZ+40)=32THENDY=DY+1 

:rem 

54 

160 SYSPR,DX,DY,CHR$(90+DD): RETURN 

: rem 

125 

180 T*1 

: rem 

91 

181 GOSUB50:SC=0 

: rem 

1 88 


23 





186 S(1,1)=3:S(1,2)=15:S(2,1)=3:S(2,2)=16:S(3,1)=4:S(3,2) 
= 1 5:S(4,1)=4:S(4,2) =1 6 :rem 37 

190 SYSPR,0,23,"GIOCATORE";T; :rem 255 

200 FORZ = lT04:SX=S(Z,1) :SY=S(Z,2) :GOSUBl00 :IFP = 60THEN3000 

:rem 13 


230 IFRND(1)<.25THENSX=SX+SGN(RND(TI)-.5):SY=SY+SGN(RND(T 
I)_.5) :rem 120 

290 E=(ABS(DX-S(Z,l)))/l0:F=(ABS(DY-S(Z,2)))/I0 :G=S(Z,1)- 
DX:H=S(Z,2)-DY : rem 251 

300 Q = RND(1):IFQ>EANDQ>FTHENSX=S(Z,1)+SGN(G):SY=S(Z,2)+SG 



N(H) 

: rem 

20 

340 

RR=-2*(H>0)-(H<0)-(RND(1)*2+1)*(H=0) 

:rem 

6 

350 

SYSPR,S(Z,1),S(Z,2)" 

: rem 

1 84 

360 

IFPEEK(TL+40*SY+SX)=32THENS(Z,1)=SX:S(Z, 

2) =SY 




: rem 

1 2 

380 

SYSPR,S(Z,1),S(Z,2),CHR$(92+RR):NEXTZ 

:rem 

21 4 

51 0 

SC=SC+1:SYSPR,22,23,"PUNTI{ 4 SPAZI}{ 4 

SIN}";150 

-SC; 


II 

{SIN}{ 2 DES}{ 2 SIN}";:IFSC=150THEN3000 

: rem 

78 

520 GOTO200 

: rem 

98 

530 1 

'=T+1 : IFT=<ATHENl 81 

: rem 

121 

2000 

PRINT"{CLR}" 

: rem 

38 

2005 

SYSPR,15,0,"RISULTATI" 

: rem 

1 35 

201 0 

PRINT:PRINT:FORX=lTOA 

: rem 

226 

2020 

PRINTTAB(9);"GlOCATORE"X,P{X):PRINT 

: rem 

1 8 

2030 

NEXT 

: rem 

4 

2035 

GOSUB4000 

: rem 

14 

2040 

PRINT"PREMI UN TASTO PER REINIZIARE" 

: rem 

27 

2045 

POKEl98,0 

: rem 

248 

2050 

GETA$:IFA$=""THEN2050 

: rem 

177 

2060 

GOSUB6320:GOTOl80 

: rem 

31 

3000 

SYSPR,15,10,"C" 

: rem 

1 82 

3002 

P (T) =150-SC 

: rem 

80 

3005 

CH=0 

: rem 

192 

301 0 

FORXX=1T04 

:rem 

1 60 

3020 

IFS(XX,1)>10ANDS(XX,1)<20ANDS(XX,2)>5ANDS(XX,2)<10TH 


ENCH=CH+1 

:rem 

190 

3030 

NEXTXX 

: rem 

181 

3040 

IFCH<4THENSYSPR,15,15,"NON HAI CHIUSO LE 

PECORE" 

: rem 

1 40 

3041 

IFCH<4THENSYSPR,15,17,"NEL RECINTO.. PUNTI 0" 

: rem 

199 

3045 

IFCH<4THENP(T)=0:CH=0:GOSUB4000:GOTO530 

:rem 

162 

3050 

SYSPR,5,5,"IL TUO PUNTEGGIO E ' "P(T):GOSUB4000:G0T053 


0 

: rem 

196 

4000 

FORQ=lTOl000:NEXTQ:RETURN 

:rem 

178 

5000 

PRINT"{CLR}" 

: rem 

41 

5010 

SYSPR,11,3,"IL CANE DA PASTORE" 

: rem 

1 9 

5020 

SYSPR,3,6,"DEVI FARE RIENTRARE LE PECORE 

NEL" 

: rem 

1 85 


5030 SYSPR,0,8,"RECINTO, ENTRO UN TEMPO PREDETERMINATO." 

: rem 218 


24 


5040 

PRINT"{ 2 GIU’} 'Z 1 -SINISTRA} 2 SPAZI} 

’C'-GIU'" 




:rem 

200 

5045 

PRINT" 'I’-SU{ 8 SPAZI}'K'-DESTRA" 

: rem 

1 48 

5078 

SYSPR,11,4 >"[< 2 Y>] [< 4 Y>] [< 2 Y>] 

[< 7 Y>]" 




: rem 

140 

5079 

GETA$:IFA$ = ""THEN50 79 

: rem 

205 

5080 

RETURN 

:rem 

173 

6000 

PR= 1 2*4 096 :TL=501 76 :PRINTCHR$(142) 

: rem 

207 

601 0 

FORI = PRTOPR+2 5 :READA$:C = LEN(A$) :A=ASC(A$)- 48 :B=ASC(R 


IGHT$(A$,1))-48 

: rem 

1 96 

6020 

N=B+7*(B>9)-(C=2)*(16*(A+7*(A>9))):POKEl,N:NEXT 




: rem 

51 

6030 

POKE56333,1 ^ 7 :POKEl,51 :FORX=OTOl 023:POKEX+53248, 

PEEK 


(X+53248):NEXT 

: rem 

21 1 

6040 

FORX=0TO31:READA:POKEX+ 53 464 ,A:NEXT 

: rem 

236 


60 50 POKEl,55:POKE56333,1 29:POKE64 8,1 96 :POKE56576,4:POKE5 
3272,21 :rem 158 

6300 INPUT"{CLR}{ 3 GIU'}{ 3 DES}QUANTI GIOCATORI 

{ 5 SPAZI}{ 3 SIN}";A$:A=VAL(A$):IFA<10RA>10THEN6300 

:rem 229 

6310 DIMS(4,2) ,P(A) ,R(2) : rem 233 

6320 DX=15:DY=15:R(1)= -l:R(2)=1:RR=1:DD = 1 :rem 38 

6499 RETURN :rem 188 

7000 DATA20,FD,AE,20,9E,B7,8A, 48,20,FD,AE,20,9E,B7,68,A8, 



18,20,F0,FF,20,FD,AE 

: rem 

74 

7010 

DATA4C,A4,AA 

: rem 

1 68 

9000 

DATA0,0,2,135,126,124,230,149 

: rem 

165 

9010 

DATA0,0,64,255,126,62,103,169 

: rem 

179 

9020 

DATA0,0,0,6,127,254,126,37 

: rem 

23 

9030 

DATAO,0,0,96,254,127,126,164 

: rem 

1 30 

ié 


(.'Alligatore 


3 


Aiutate una simpatica famiglia di 
alligatori ad attraversare uri grande 
fiume, che pullula di gustosi pesci 
ma anche di pericolose mine. Gli 
alligatori sono tre: ognuno parte 
dal lato sinistro del video e voi do¬ 
vete guidarlo fino al destro impie¬ 
gando meno di due minuti. Nella 
parte alta dello schermo si trova la 
superficie dell'acqua, alla quale il 


rettile deve risalire di tanto in tanto 
per respirare. Sempre in alto è visi¬ 
bile l’indicatore della riserva d’aria, 
il tempo ancora a disposizione e il 
punteggio guadagnato. Mangian¬ 
do le piante si ottengono 10 punti, 
divorando i pesci rossi se ne otten¬ 
gono 20, ed infine il bottino è di 
ben 150 punti se l’alligatore riesce 
a catturare uno dei prelibati pesci 


25 





gialli, che nuotano in profondità e 
fanno perdere molto tempo, in¬ 
gaggiando una dura lotta col pre¬ 
datore ed intralciandone i movi¬ 
menti. Nel frattempo dovete fare 
attenzione ad evitare il contatto 
con le mine (i pallini neri). Il gioco 
termina quando tutti e tre gli alliga¬ 


tori hanno .attraversato il fiume o 
sono morti nel tragitto (affogati o 
uccisi alle mine), oppure se com¬ 
piendo una traversata superate il 
tempo massimo. Per muovere l'alli¬ 
gatore usate i tasti Q (su), Z (giù) 
e P (per avanzare). 


10 POKE53280,9:POKE53281 , 9 :rem 200 

20 PRINT"{CLR}{WHT}{ 13 SPAZI}{RVS} L'ALLIGATORE {OFF}":P 
RINT"{ 14 GIU'}"; :rem 250 

30 V=53248 :POKE2 040,1 92:POKE2041,1 94:POKE2042,1 94 :POKE204 
3,194:POKE2044,194 :rem 225 

40 POKE2045,194:POKE2046,194:POKE2047,194 :rem 39 

50 FORI=l2288T012350:READQ:POKEI,Q:POKEI+64,Q:NEXT • 


:rem 136 

60 POKEV+39,0 :POKEV+40,0 :POKEV+41,7 :POKEV+42,7 :POKEV+43,7 
:POKEV+16,0 : rem 78 

70 POKEV+44,7:POKEV+45,7:POKEV+46,7 :rem 79 

80 FORI = l 2366T012381STEP3:READQ:POKEI,Q:NEXT :rem 55 

90 FORI = l2416T01 2437STEP3:READQ:POKEI,Q:POKEI+1 ,0:POKEI+2 


,0:NEXT :rem 
100 FORI = l 2440TO1 2478 :POKEI,0:NEXT :rem 
110 FORI = 491 52T049262 :READQ:POKEI,Q:NEXT :rem 
120 NM=4 ; rem 
130 F0RI=54272T054296:POKEI,0:NEXT :rem 
140 PRINT"{ 6 SPAZI}PER INIZIARE PREMI UN TASTO":rem 
150 GETX$:IFX$ = ""THENl50 :rem 
160 GOSUB890 :rem 
170 POKEV+21,0:NM=NM-1 :IFNM=0THEN680 :rem 
180 PRINT"{CLR}"; :POKE53280,5:POKE53281 , 6 :rem 


190 FORI = l 02 4TO1143:POKEI,160 :POKEI + 54272,14:NEXT 


11 
41 
253 
159 
57 
83 
125 
184 
1 76 
21 0 


:rem 154 

200 FORI = l 1 44T01 823:K=RND(1):IFK<.92THEN240 :rem 16 

210 K=RND(1) :IFK<.4THENPOKEI,42 :POKEI + 54272,10:GOTO2 40 


:rem 227 

220 IFK<.6THENPOKEI,81 :POKEI+54272,0 :GOTO240 :rem 144 

230 POKEI,88:POKEI+54272,13 :rem 26 

240 NEXT : rem 213 

250 POKEV,10:POKEV+1,150:POKEV+16,0:POKEI78,1 :rem 153 

260 AI=28-R:TM=0 :rem 144 

270 FORI=lT07 :rem 17 

280 K1=INT(RND(1)*280+40):K2=INT(RND(0)*30+200) :rem 39 

290 IFK1>2 55THENPOKEV+16,PEEK(V+l6)OR211 :POKEV+2*I,Kl-2 56 
:GOTO310 :rem -210 

300 POKEV+2 *1,Kl : POKEV+1 6, PEEK (V+l 6) AND (255-2H) : rem 49 

310 POKEV+2*1+1,K2 :rem 238 

320 NEXT : rem 212 
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330 

R=R+1 :GOSUB870:POKEl 54 5,32 


: rem 

245 

340 

POKEV+21 ,255:PRINT"{HOME}{GIU'}{RVS} 

A 

V 

I ARIA" 





: rem 

106 

350 

POKEV+30,0 


: rem 

7 

360 

TI$="000000":GOSUB830 


: rem 

80 

370 

SYS(49233):IFTM>120-ARTHEN680 


: rem 

183 

380 

GOSUB830:IFAR>=AITHEN750 


: rem 

226 

390 

AX=PEEK(V)+256*(PEEK(V+l 6)ANDl ) 


: rem 

227 

400 

IFPEEK(V+l)<67THENGOSUB510:GOTO420 


: rem 

66 

41 0 

FL= 0 


: rem 

1 48 

420 

IFAX>327AND (PEEK (V+21 ) AND30) O0THEN780 

: rem 

196 

430 

IF(PEEK(V+3 0)ANDl)=1THENGOSUB5 60 


: rem 

1 41 

440 

Kl=INT(AX/8)+40*INT((PEEK(V+l)-42)/8)+1 024 :IFPEEK(Kl ) 


= 32THEN3 70 


: rem 

1 3 

450 

IFPEEK(Kl) =4 2THENGOSUB540 


: rem 

5 

460 

IFPEEK(Kl)=81THENGOSUB660 


: rem 

1 2 

470 

IFPEEK(Kl)=8 8THENGOSUB4 90 


: rem 

21 

480 

GOTO370 


: rem 

1 1 1 

490 

SC=SC+10 :POKEKl,32:GOSUB830 


: rem 

93 

500 

RETURN 


: rem 

11 7 

51 0 

IFFL=1THEN53 0 


: rem 

236 

520 

TM=TM+AR:TI$ ="000000":GOSUB870:FL=1 


: rem 

3 

530 

RETURN 


: rem 

120 

540 

SC=SC+20 : POKEKl,32:GOSUB830 


: rem 

90 

550 

RETURN 


: rem 

1 22 

560 

FI =0 


: rem 

1 27 

570 

FORJ= 1 T07:K2=PEEK(V+2 * J) +( 2t (8-J) ) *(PEEK(V+l 6)AND 

( 21J 


)) :K3=PEEK(V+2 *J+l) 


: rem 

1 1 9 

580 

GOSUB830 


: rem 

1 84 

590 

K4 = PEEK(V)+256*(PEEK(V+16)ANDl ) 


: rem 

203 

600 

IF(PEEK(V+21 ) AND(2tJ) ) =0THEN620 


: rem 

2 

61 0 

IFK2-K4> = 18ANDK2-K4< 25ANDK3-PEEK(V+l ) <8THENFl=J 





: rem 

25 

620 

NEXT:IFFl=0THENRETURN 


: rem 

147 

630 

IFFl=FBTHEN3 50 


: rem 

43 

640 

SC=SC+150 : POKEV+21 ,PEEK(V+21 ) AND <255- 

2 TFl ) : GOSUB830 




: rem 

224 

650 

POKEV+30,0:RETURN 


: rem 

36 

660 

GOSUB890 


: rem 

1 89 

670 

GOTOl70 


: rem 

11 0 

680 

POKEV+21 , 0:POKE53281 , 0 : POKE53280 , 0 : PRINT" 

{CLR}{YEL} 


{ 13 SPAZI}FINE DEL GIOCO" 


: rem 

64 

690 

PRINT"{ 2 GIU ' } { 13 SPAZ1}PUNTEGGIO:" 

; SC 

: rem 

79 

700 

PRINT"{ 4 GIU 1 }GIOCHI ANCORA (S/N)?" 


: rem 

11 5 

71 0 

GETX$:IFX$= "" THEN710 


: rem 

1 29 

720 

IFX$ = "S"THENRUN 


: rem 

1 56 

730 

IFX$="N"THENEND 


: rem 

1 22 

740 

GOTO710 


: rem 

1 08 

750 

POKEV+21,0 : POKE53281 , 0:PRINT"{CLR}{YEL} { 

10 SPAZI}ALL 


IGATORE ANNEGATO ! !" 


: rem 

1 30 

760 

FORT=lT03000:NEXT 


: rem 

37 
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A TUTTA MUSICA CON 



MAXIPRESTAZIONE IN MINISPAZIO 

Il tuo laboratorio musicale, completo e perfetto, 
è tutto qui: il Commodore 64, il SOUND BUGGY, 
la minitastiera SIEL. il software. 


Volume generale _ 

Volume per la parte 
orchestrale - 

Volume per la batteria 
elettronica 

Spia luminosa 
di corretta 
alimentazione 


Musica dal calcolatore, 
musica vera, musica tua! 

Con l’unità periferica 
SOUND BUGGY, e la tastierina 
musicale SIEL da sovrapporre a 
quella alfanumerica, il tuo 
Commodore 64 si trasforma in 
un’autentica band. 

Se sei già esperto di musica 
SOUND BUGGY ti porterà alla 
perfezione. Se sei un principiante 
diventerai, in pochi giorni, 
concertista e arrangiatore, 
comporrai musica tua e potrai 
ascoltarla in una perfetta 
registrazione elettronica, 
collegandoti a ogni impianto 
stereo, videotelevisivo, 
monitor C 64. 


UN ECCEZIONALE PACCHETTO DI 
PROGRAMMI 

Grazie allo straordinario 
software di SOUND BUGGY 
potrai eseguire o comporre su 24 
ritmi (12 preregistrati), disporrai di 
ben 28 timbri strumentali 
(14 preregistrati), potrai correggere, 
migliorare, registrare. 

In più, tramite interfaccia 
MIDI, SOUND BUGGY 
comunica anche con expander, 
sintetizzatori, sequencer ecc. 

Insomma, SOUND BUGGY 
è un vero prodigio dell’elettronica 
al servizio della tua creatività 
musicale. 


IMPORTANTE 

SOUND BUGGY 
è acquistabile 
esclusivamente tramite il 
coupon privilegiato di 
questa offerta. Ritaglialo 
e spediscilo subito. 
Usufruirai del prezzo 
bloccato fino al 
31.12.1985. 













CEDOLA PRIVILEGIATA DI ACQUISTO 

SOUNDBUGGY il □ che interessa 




Questa Cedola rappresenta l’unico 
modo di ordinare SOUND BUGGY, e 
riceverlo completo di tastierina e di 
programmi su disco e cassetta. 

Ritagliala e spediscila subito. 


12 MESI DI GARANZIA 


contrassegno completa 
di minitastiera, 
pacchetto software sia 
su disco che su cassetta, 
libretto istruzioni al 
prezzo speciale di 
L. 185.000 (incluse 
L. 27.650 IVA e L. 3.750 
di spese postali). 

È inteso che il mio 


SOUND BUGGY 
sarà protetto da 

Garanzia per 1 anno. 

ITI Sono interessato alla 
unità periferica per C 64 
SOUND BUGGY e vi 
prego di volermi fornire 
informazioni più 
dettagliate. 


I I Sì, desidero acquistare 
SOUND BUGGY, la 
vostra unità periferica 
per C 64. Speditemela 


SOUND^f BUGGY 


I 

I 

I 

I 

I 




Connome 

Inriirizzo 

CAP 

1 oralità _ 



_ Firma 


(per i minori occorre quella del genitore) 


i 


I 




















770 

GOTO!70 


: rem 

111 

780 

IF(PEEK(V+21)AND30)=0THENl70 


: rem 

67 

790 

PRINT"{CLR}{CYN}{ 4 SPAZI}IL FIUME E 

' STATO ATTRAVERS 


ATO. " 


: rem 

11 5 

800 

POKE53281,0:PRINT"{ 4 GIU'H 3 SPAZl}SOTTO 

CON IL 

PRO 


SS IMO ALLIGATORE!" 


: rem 

4 

81 0 

FORT=lT03000:NEXT 


: rem 

33 

820 

GOTO!70 


: rem 

107 

830 

AR=INT(TI/60):POKE55340+AR,14 


: rem 

1 46 

840 

FORI = l 0 58 TO1 063 :POKEI,160:NEXT 


: rem 

50 

850 

PRINT"{HOME}{RVS} [<7>]PUNTI :";SC;TAB(28) ;" 

TEMPO: 11 

; 1 20 


-AR-TM 


: rem 

47 

860 

RETURN 


: rem 

126 

870 

FORI=55340TO55340+AI:POKEI,0:NEXT 


: rem 

237 

880 

RETURN 


: rem 

1 28 

890 

FORX=15TO0STEP-1 :IFNM=4THEN91 0 


: rem 

1 42 

900 

POKE53281 ,X+l 00 


: rem 

11 

91 0 

POKE54 2 96,X :POKE542 76,1 29:POKE54 2 77, 

1 5 

: rem 

148 

920 

POKE54 2 7 8, 1 28 :POKE54273,X :POKE54272 , 

200:NEXT:rem 

49 

930 

POKE542 76,0 :POKE542 77,0 : RETURN 


: rem 

23 

940 

DATA0,0,0,0,0,0,0,0,0,224,0,0,96,0,1 

,32,0, 

3,48,252,23 


0,63,255,252 


: rem 

35 

950 

DATA31 ,255,248,31 ,255,240,15,255,255 

,7,255 

,255,1, 

255, 


0,3,122,0,6,6,0 


: rem 

250 

960 

o 

o 

o 

o 

o 

o 

co 

CM 

t~ 

w 

o 

o 

m 

o 

o 

'sD 

< 

Eh 

C 

Q 

o 

o 

o 

: rem 

1 28 

970 

DATA0,0,224,240,240,255 


: rem 

86 

980 

DATA0,128,1 98,1 1 1 ,63,1 1 1 ,1 98,1 28 


: rem 

40 

990 

DATAI 65,1 97,201 , 41 , 208,39,1 73,1 6,208 

,41,1, 

240,7,173,0 


,208,201,74,176,24 


: rem 

161 


1000 DATA24,173,0,208,105,6,141,0,208,173,0,208,201,6,176 
, 8,1 73,1 6,208,9,1,1 41 : rem 14 

1010 DATAI 6,208,96,201 , 62,208,1 4,173,1 , 208,2 01 ,64,1 44,6,5 
6,233,6,1 41 , 1,208,96 : rem 241 

1 02 0 DATA201 , 1 2,208,251 , 1 73,1 , 208,201 , 240,1 76,244,24,1 05, 
6,141,1,208,96,165,178 :rem 78 

1 03 0 DATA2 01 ,0,208,12,169,1 93,141 ,248,7,169,1 ,1 33,1 78,76, 
0,192,169,192,141,248 :rem 59 

1040 DATA7,169,0,133,178,76,0,192 :rem 138 
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A Milano, 

in via Mascheroni 14. 
la piima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria Italiana. 

A Milano, in vìa Mascheroni 14. 

TBl. 02-437385 

Vieni a trovarci: ti aspettiamo. 











